home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / WIDGBOUT.SPR < prev    next >
Text File  |  1992-01-13  |  5KB  |  135 lines

  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 01/13/92            WIDGBOUT.SPR               23:19:17 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992                                      ║
  10. *       ║ Application developed for _Using FoxPro 2_              ║
  11. *       ║ Que Publishing Corporation                              ║
  12. *       ║ ISBN 0-88022-703-6                                      ║
  13. *       ║                                                         ║
  14. *       ║ Description:                                            ║
  15. *       ║ This program was automatically generated by GENSCRN.    ║
  16. *       ║                                                         ║
  17. *       ╙─────────────────────────────────────────────────────────╜
  18.  
  19.  
  20. #REGION 0
  21. REGIONAL m.currarea, m.talkstat, m.compstat
  22.  
  23. IF SET("TALK") = "ON"
  24.     SET TALK OFF
  25.     m.talkstat = "ON"
  26. ELSE
  27.     m.talkstat = "OFF"
  28. ENDIF
  29. m.compstat = SET("COMPATIBLE")
  30. SET COMPATIBLE FOXPLUS
  31.  
  32. *       ╓─────────────────────────────────────────────────────────╖
  33. *       ║                                                         ║
  34. *       ║                    Window definitions                   ║
  35. *       ║                                                         ║
  36. *       ╙─────────────────────────────────────────────────────────╜
  37. *
  38.  
  39. IF NOT WEXIST("_q291dzhlo")
  40.     DEFINE WINDOW _q291dzhlo ;
  41.         FROM INT((SROW()-16)/2),INT((SCOL()-60)/2) ;
  42.         TO INT((SROW()-16)/2)+15,INT((SCOL()-60)/2)+59 ;
  43.         FLOAT ;
  44.         NOCLOSE ;
  45.         SHADOW ;
  46.         DOUBLE ;
  47.         COLOR SCHEME 5
  48. ENDIF
  49.  
  50.  
  51. *       ╓─────────────────────────────────────────────────────────╖
  52. *       ║                                                         ║
  53. *       ║                 WIDGBOUT Screen Layout                  ║
  54. *       ║                                                         ║
  55. *       ╙─────────────────────────────────────────────────────────╜
  56. *
  57.  
  58. #REGION 1
  59. IF WVISIBLE("_q291dzhlo")
  60.     ACTIVATE WINDOW _q291dzhlo SAME
  61. ELSE
  62.     ACTIVATE WINDOW _q291dzhlo NOSHOW
  63. ENDIF
  64. @ 4,7,8,49 BOX "┌─┐│┘─└│ "
  65. @ 5,14 SAY " U S I N G   F O X P R O   2 "
  66. @ 7,10 SAY "by Lisa C. Slater and Steven E. Arnott"
  67. @ 1,11 SAY "This application was created from  "
  68. @ 2,6 SAY "the techniques and model database detailed in"
  69. @ 9,9 TO 9,50 "▀"
  70. @ 5,50 TO 8,50 PANEL
  71. @ 13,3 GET m.done ;
  72.     PICTURE "@*HN \<More;\<Done" ;
  73.     SIZE 1,6,40 ;
  74.     DEFAULT 1 ;
  75.     VALID _q291dzi9s()
  76. @ 12,22 SAY "(800) 428-5331"
  77. @ 11,20 SAY "ISBN 0-88022-703-6"
  78. @ 10,22 SAY "Que Publishing"
  79.  
  80. IF NOT WVISIBLE("_q291dzhlo")
  81.     ACTIVATE WINDOW _q291dzhlo
  82. ENDIF
  83.  
  84. READ CYCLE MODAL
  85.  
  86. RELEASE WINDOW _q291dzhlo
  87.  
  88. #REGION 0
  89. IF m.talkstat = "ON"
  90.     SET TALK ON
  91. ENDIF
  92. IF m.compstat = "ON"
  93.     SET COMPATIBLE ON
  94. ENDIF
  95.  
  96.  
  97. *       ╓─────────────────────────────────────────────────────────╖
  98. *       ║                                                         ║
  99. *       ║ _Q291DZI9S           m.done VALID                       ║
  100. *       ║                                                         ║
  101. *       ║ Function Origin:                                        ║
  102. *       ║                                                         ║
  103. *       ║ From Screen:         WIDGBOUT,     Record Number:    9  ║
  104. *       ║ Variable:            m.done                             ║
  105. *       ║ Called By:           VALID Clause                       ║
  106. *       ║ Object Type:         Push Button                        ║
  107. *       ║ Snippet Number:      1                                  ║
  108. *       ║                                                         ║
  109. *       ╙─────────────────────────────────────────────────────────╜
  110. *
  111. FUNCTION _q291dzi9s     &&  m.done VALID
  112. #REGION 1
  113. PRIVATE mrow, mcol
  114. IF m.done = 1
  115.    mrow = WLROW(WONTOP())
  116.    mcol = WLCOL(WONTOP())
  117.    DEFINE WINDOW w_about ;
  118.         FROM mrow, mcol ;
  119.         TO mrow + 1 + WROWS(WONTOP()), ;
  120.            mcol + 1 + WCOLS(WONTOP()) ;
  121.         CLOSE ;
  122.         SHADOW ;
  123.         SYSTEM ;
  124.         COLOR SCHEME 5 ;
  125.         NOFLOAT NOGROW NOZOOM ;
  126.            TITLE PADC(" About The Widget Application ",;
  127.                        WCOLS(WONTOP()) - 6,"═") ;
  128.            FOOTER REPL("═",WCOLS(WONTOP()))
  129.  
  130.   MODI FILE widgbout.txt NOMODIFY WINDOW w_about
  131.  
  132.   RELEASE WINDOW w_about
  133. ELSE
  134.   CLEAR READ
  135. ENDIF